home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest89 / HAMLIN.RED < prev    next >
Encoding:
Text File  |  1991-08-13  |  1.6 KB  |  69 lines
  1. ;   The pied piper of Hamlin
  2. ;   by Adam King
  3.  
  4. cliff    dat            $  0
  5. jump    mov        bomb        cliff    ;  cause pests
  6.     mov        bomb        cliff    ;  to jump
  7.     mov        bomb        cliff    ;  off the
  8.     mov        bomb        cliff    ;  cliff
  9.     mov        bomb        cliff
  10.     mov        bomb        cliff    ;  cliff
  11.     mov        bomb        cliff
  12.     mov        bomb        cliff    ;  to jump
  13.     mov        bomb        cliff    ;  to jump
  14.     mov        bomb        cliff    ;  off the
  15.     mov        bomb        cliff    ;  cliff
  16.     mov        bomb        cliff
  17.     mov        bomb        cliff    ;  cliff
  18.     mov        bomb        cliff    ;  cliff
  19.     mov        bomb        cliff
  20.     mov        bomb        cliff    ;  cliff
  21.     mov        bomb        cliff    ;  cliff
  22.     mov        bomb        cliff
  23.     mov        bomb        cliff    ;  cliff
  24.     mov        bomb        cliff    ;  cliff
  25.     mov        bomb        cliff
  26.     mov        bomb        cliff    ;  cliff
  27.     mov        bomb        cliff
  28. bomb    dat            $  0
  29. baddr   dat            $ -110
  30. faddr   spl            $  40
  31. bmbcnt  dat                     $  700
  32. loop    mov         bomb    @   baddr
  33.     sub     #  10            baddr
  34.     mov        bomb    @   faddr
  35.     add     #  10            faddr
  36.     djn         endlop          bmbcnt
  37.     mov     #  40            faddr
  38.     mov     # -110            baddr
  39.     mov      #  700            bmbcnt
  40. endlop    jmz        loop        cliff-100    ;  watch for incoming
  41.     spl                jump
  42.     spl                jump
  43.     spl                jump
  44.     spl                jump
  45.     spl                jump
  46.     spl                jump
  47.     spl                jump
  48.     spl                jump
  49.     spl                jump
  50.     spl                jump
  51.     spl                jump
  52.     spl                jump
  53.     spl                jump
  54.     spl                jump
  55.     spl                jump
  56.     spl                jump
  57.     spl                jump
  58.     spl                jump
  59.     spl                jump
  60.     spl                imp
  61.     mov        bomb        cliff-100    ; clear fence
  62.     jmp        loop
  63. start    spl                imp
  64.     mov        bomb        cliff-100    ; clear fence
  65.     jmp        loop
  66. impcnt    dat            $  8100
  67. imp    mov        imp            imp+1
  68.     end        start
  69. b